home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / tess / tess-1.0 / aGroup.pswm-newnew < prev    next >
Encoding:
Text File  |  1992-06-30  |  5.8 KB  |  290 lines
  1. #import "aGroup.h"
  2. #import "aGroup-inter.h"
  3. #import "TessSketch.h"
  4. #import "Underlay.h"
  5. #import "GeneratorOverlay.h"
  6.  
  7. @implementation aGroup
  8.  
  9. +new 
  10. {
  11.   self = [super new];
  12.   [self setScaling: 1.0 : 1.0];
  13.   [self setAutosizing: NX_WIDTHSIZABLE | NX_HEIGHTSIZABLE];
  14.   return self;
  15. }
  16.  
  17. + setup
  18. {
  19.   GroupSetup();                    // call only once
  20.   return self;
  21. }
  22.  
  23. - drawSelf:(const NXRect *)rects :(int)rectCount
  24. {
  25.   [self clip: GENOFFT : GENOFFT ];
  26.   [[genovly getImage]  composite: NX_COPY fromRect: &frame toPoint: &(bounds.origin)];
  27.   return self;
  28. }
  29.  
  30. - setGenovly: sender
  31. {
  32.   genovly = sender;
  33.   return self;
  34. }
  35.     
  36. - performTesselation: sender
  37. {
  38.   id imgview,outview,outimg;
  39.   NXPoint pt,genofft;
  40.   NXSize lsize;
  41.   NXRect outrect;
  42.   float xstart;
  43.   int xlimit,ylimit;
  44.   
  45.   outview = [sender getOutputView];
  46.   outimg = [outview getImage];
  47.   [self getLatticeUnitSize: &lsize];
  48.   [sender getImageView:&imgview withOffset: &genofft];
  49.   if(![outimg lockFocus]) fprintf(stderr,"Couldn't lock outimg focus\n");
  50.   PSgsave();
  51.   PSscale(xscaling,yscaling);
  52.   [outview getFrame: &outrect];
  53. #ifdef DEBUG
  54.   fprintf(stderr,"Output rect: %f,%f,%f,%f\n",outrect.origin.x,outrect.origin.y,
  55.       outrect.size.height,outrect.size.width);
  56. #endif
  57.   
  58.   pt.x = pt.y = 0.0;
  59.   ylimit = (int)(outrect.size.height/lsize.height) + 2;
  60.   do {
  61.     PSmoveto(0.0,0.0);
  62.     if(ylimit%2){
  63.       pt.x -= lsize.width;        /* adjust back for rhombic & poly case*/
  64.     } 
  65.     xlimit = (int)(outrect.size.width/lsize.width) + 4;
  66.     xstart = pt.x;
  67.     do{
  68. #ifdef 0
  69.       fprintf(stderr,"Current point %f,%f: xlimit %d\n",pt.x,pt.y,xlimit);
  70. #endif
  71.       PSgsave();
  72.       PStranslate(pt.x,pt.y);
  73.       [self makeLatticeUnitAt: &genofft fromImage: [imgview getImage]];
  74.       PSgrestore();
  75.       [self rightTranslatePoint: &pt];
  76.     } while (xlimit--);
  77.     pt.x = xstart;
  78.     [self upTranslatePoint: &pt];
  79.   } while (ylimit--);
  80.   PSgrestore();
  81.   [outimg unlockFocus];
  82.   return self;
  83. }
  84.  
  85. - generator: (NXCoord) x : (NXCoord) y
  86. {
  87.   [self clip: x : y];
  88.   PSstroke();
  89.   return self;
  90. }
  91.  
  92. - clip: (NXCoord) x: (NXCoord) y
  93. {
  94.   return self;
  95. }
  96. - (BOOL) isRigidLattice
  97. {
  98.   return YES;
  99. }
  100. - rightTranslatePoint: (NXPoint *) pt
  101. {
  102.   return self;
  103. }
  104.  
  105. - upTranslatePoint: (NXPoint *)pt
  106. {
  107.   return self;
  108. }
  109.  
  110. - (NXSize *)getLatticeUnitSize: (NXSize *) size
  111. {
  112.   size->width = latticesize.width;
  113.   size->height = latticesize.height;
  114.   return &latticesize;
  115. }
  116.  
  117. - setScaling: (float) xscale:(float) yscale
  118. {
  119.   xscaling = xscale;
  120.   yscaling = yscale;
  121.   return self;
  122. }
  123.  
  124. - (float) xscaling
  125. { 
  126.   return xscaling; 
  127. }
  128. - (float) yscaling
  129. { 
  130.   return yscaling; 
  131. }
  132. - drawImage
  133. {
  134.   [self sketchTemplate];
  135.   return self;
  136. }
  137. - sketchTemplate
  138. {
  139.   return self;
  140. }
  141. - makeLatticeUnitAt: (NXPoint *) point fromImage: srcimg 
  142. {
  143.   return self;
  144. }
  145. - (NXPoint *)getGeneratorOffset: (NXPoint *) pt
  146. {
  147.   pt->x = pt->y = 0.0;
  148.   return pt;
  149. }
  150.  
  151. - (NXSize *)getGeneratorSize: (NXSize *) size
  152. {
  153.   size->width = size->height = 0.0;
  154.   return size;
  155. }
  156.  
  157. @end
  158.  
  159. int genfun () {  return 1; }
  160. int clipper () { return 1; }
  161. int tesselate () { return 1;}
  162.  
  163. defineps GroupSetup()
  164.    /groupsdict 40 dict def
  165.    groupsdict begin
  166.        /equi { 3 sqrt mul 2 div } bind def
  167.        /generatorcolor {0.655171 0.102771 0.629475 setrgbcolor } bind def
  168.        /glidecolor {0.373226 0.462386 0.528733 setrgbcolor } bind def
  169.        /reflectioncolor {0.333338 0.039216 0.237907 setrgbcolor } bind def
  170.        /translationcolor {1 0.054903 0.101962 setrgbcolor       } bind def
  171.        /anglecolor { 0 0 1 setrgbcolor } bind def
  172.        /latticeunitcolor { 0.5 setgray } bind def
  173.        /scaling 1.0 def    
  174.  
  175.        /arrow { % angle x y
  176.        newpath moveto dup rotate 
  177.        -13 6 rlineto 4 -6 rlineto 
  178.        -4 -6 rlineto closepath gsave 0 
  179.        setlinejoin stroke grestore fill neg rotate
  180.        } def
  181.  
  182.        /addpoints { % x y x y
  183.           exch % x y y x
  184.           4 1 roll %  y y x x
  185.           add 3 1 roll % x y y
  186.           add % x y
  187.     } bind def
  188.  
  189.        /duptop2 { % x y -> x y x y
  190.        dup     %  x y y
  191.        3 2 roll % y y x
  192.        dup % y y x x    
  193.        4 1 roll % x y y x
  194.        exch % x y x y    
  195.        } bind def
  196.  
  197.        /even { % num
  198.        cvi 1 and 1 eq not
  199.        } bind def
  200.  
  201.        /setscaling { % scale - wrap with dictionary use !!!
  202. %       groupsdict begin       
  203. %           /scaling exch def    
  204. %           [scaling 0 0 scaling 0 0] setmatrix
  205. %       end           
  206.     pop
  207.        } bind def
  208.  
  209.        /reflect { % angle
  210.        dup rotate  
  211.        [1 0 0 -1 0 0] concat 
  212.        neg rotate     
  213.        }     bind def
  214.  
  215.        /rhombus { % x y 
  216.        groupsdict begin    
  217.            moveto
  218.            latticeunitcolor
  219.            lattice:side 0 lineto
  220.            lattice:w lattice:h rlineto
  221.            lattice:side neg 0 rlineto
  222.            closepath
  223.            stroke
  224.        end        
  225.        } bind def
  226.  
  227.        /transv0 { %x y len
  228.        groupsdict begin
  229.            gsave    
  230.            2 setlinewidth
  231.            translationcolor    
  232.            moveto dup 0 rlineto stroke    
  233.            0 exch 0 arrow
  234.            grestore    
  235.        end        
  236.        } bind def
  237.  
  238.        /transv90 { %x y len
  239.        groupsdict begin
  240.            gsave 
  241.            2 setlinewidth
  242.            translationcolor    
  243.            moveto dup 0 exch rlineto stroke    
  244.            90 exch 0 exch arrow
  245.            grestore    
  246.        } bind def
  247.  
  248.        /transv60 { %x y run rise
  249.        groupsdict begin
  250.            gsave 
  251.            2 setlinewidth
  252.            translationcolor    
  253.            moveto 
  254.            duptop2    
  255.            rlineto stroke    
  256.            60 3 1 roll % angle of arrow
  257.            arrow
  258.            grestore    
  259.        end        
  260.        } bind def
  261.  
  262.        /reflectionaxis { % x1 y1 x2 y2
  263.        groupsdict begin    
  264.            reflectioncolor
  265.            moveto rlineto stroke    
  266.        end
  267.        } bind def
  268.  
  269.        /rotation3 { % size x y
  270.        groupsdict begin    
  271.            moveto    
  272.            /r3size exch def
  273.            /r3ext r3size equi def    
  274.            anglecolor
  275.            0 r3ext 2 div rmoveto
  276.            r3size 2 div r3ext neg rlineto
  277.            r3size neg 0 rlineto
  278.            closepath 
  279.            gsave fill grestore stroke
  280.        end
  281.        } bind def
  282.    end
  283. endps
  284.  
  285. defineps reflect(float angle)
  286.      groupsdict begin
  287.          angle reflect
  288.      end 
  289. endps
  290.